myvar_0 = GetPrimitiveParameter(0)
myvar_1 = GetPrimitiveParameter(1)
myvar_2,myvar_3,myvar_4 = nWorld["GetObjectTile"](myvar_0)
local myvar_5 = 0
myvar_9 = GetPrimitiveParameter(2)
	if (myvar_1 == 0) then
	myvar_5 = myvar_2 + 1
else
		if (myvar_1 == 2) then
		myvar_5 = myvar_2 - 1
	else
			if (myvar_1 == 4) then
			myvar_5 = myvar_2 - 1
		else
				if (myvar_1 == 6) then
				myvar_5 = myvar_2 + 1
			else
				error("bad direction")
			end
		end
	end
end
SetTemp(0, -1)
SetTemp(1, -1)
SetTemp(2, -1)
SetTemp(3, -1)
	if (myvar_9 == -1) then
	nWorld["GetObjectsOnTile"](myvar_5, (myvar_3 + 1), myvar_4)
		if (table["getn"]() == 0) then
		SetScriptReturnValue(True)
		return 
	else
		nWorld["GetObjectsOnTile"]((myvar_2 - 1), (myvar_3 + 1), myvar_4)
			if (table["getn"]() == 0) then
			SetScriptReturnValue(True)
			return 
		else
			SetScriptReturnValue(False)
			return 
		else
				if (GlobalObjManager["verifyObjectId"](GlobalObjManager, myvar_9) == False) then
				SetScriptReturnValue(False)
				return 
			end
		end
	end
end
SetTemp(0, myvar_5)
SetTemp(1, (myvar_3 + 1))
SetTemp(2, myvar_4)
SetTemp(3, 1)
	if (nWorld["MoveObjectToLocation"](myvar_9, (GetTemp(0) + 0.5), (GetTemp(1) + 0.5), myvar_4) == True) then
		if (GlobalObjManager["isWallBetweenObjects"](GlobalObjManager, myvar_0, myvar_9) == False) then
		SetScriptReturnValue(True)
		return 
	end
end
SetTemp(0, (myvar_2 - 1))
SetTemp(1, (myvar_3 + 1))
SetTemp(2, myvar_4)
SetTemp(3, 0)
myvar_12 = GetTemp(0)
myvar_12 = myvar_12 + 0.5
local myvar_14 = 1
myvar_13 = GetTemp(myvar_14)
myvar_13 = myvar_13 + 0.5
myvar_14 = myvar_4
	if (nWorld["MoveObjectToLocation"](myvar_9, myvar_12, myvar_13, myvar_14) == True) then
	myvar_12 = myvar_0
	myvar_13 = myvar_9
		if (GlobalObjManager["isWallBetweenObjects"](GlobalObjManager, myvar_12, myvar_13) == False) then
		SetScriptReturnValue(True)
		return 
	end
end
local myvar_11 = False
SetScriptReturnValue(myvar_11)
